home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / riruf1 / rufmail.bas < prev    next >
BASIC Source File  |  1995-01-25  |  4KB  |  125 lines
  1. Option Explicit
  2. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  3.  
  4.  
  5. '---------------------------------------
  6. ' MAPI SESSION CONTROL CONSTANTS
  7. '---------------------------------------
  8. 'Action
  9. Global Const SESSION_SIGNON = 1
  10. Global Const SESSION_SIGNOFF = 2
  11.  
  12. '---------------------------------------
  13. ' MAPI MESSAGE CONTROL CONSTANTS
  14. '---------------------------------------
  15. 'Action
  16. Global Const MESSAGE_FETCH = 1
  17. Global Const MESSAGE_SENDDLG = 2
  18. Global Const MESSAGE_SEND = 3
  19. Global Const MESSAGE_SAVEMSG = 4
  20. Global Const MESSAGE_COPY = 5
  21. Global Const MESSAGE_COMPOSE = 6
  22.  
  23. Global Const MESSAGE_REPLY = 7
  24. Global Const MESSAGE_REPLYALL = 8
  25. Global Const MESSAGE_FORWARD = 9
  26. Global Const MESSAGE_DELETE = 10
  27. Global Const MESSAGE_SHOWADBOOK = 11
  28. Global Const MESSAGE_SHOWDETAILS = 12
  29. Global Const MESSAGE_RESOLVENAME = 13
  30. Global Const RECIPIENT_DELETE = 14
  31. Global Const ATTACHMENT_DELETE = 15
  32.  
  33. '---------------------------------------
  34. '  MISCELLANEOUS GLOBAL CONSTANT DECLARATIONS (MAPI CONTROLS)
  35. '---------------------------------------
  36. Global Const RECIPTYPE_ORIG = 0
  37. Global Const RECIPTYPE_TO = 1
  38. Global Const RECIPTYPE_CC = 2
  39. Global Const RECIPTYPE_BCC = 3
  40.  
  41.  
  42. Function ConstructMultiMailMsg (frmMapi As Form, sSubject As String, sMsg As String, sName As String)
  43.     On Error GoTo constErr
  44.  
  45.     ConstructMultiMailMsg = True
  46.     frmMapi!MapiMessages.Action = MESSAGE_COMPOSE
  47.     frmMapi!MapiMessages.MsgSubject = sSubject
  48.     frmMapi!MapiMessages.MsgNoteText = sMsg
  49.     frmMapi!MapiMessages.RecipType = RECIPTYPE_TO
  50.  
  51.     frmMapi!MapiMessages.RecipDisplayName = sName
  52.     frmMapi!MapiMessages.Action = MESSAGE_RESOLVENAME
  53.     frmMapi!MapiMessages.Action = MESSAGE_SEND
  54.  
  55.     Exit Function
  56.  
  57. constErr:
  58.     ConstructMultiMailMsg = False
  59.     Exit Function
  60.  
  61. End Function
  62.  
  63. Function InitMultiMapi (frmMapi As Form) As Integer
  64.     On Error GoTo initMail
  65.     Dim x%, sMailUserID$
  66.  
  67.     InitMultiMapi = True
  68.     sMailUserID = Space$(60)
  69.     x = GetPrivateProfileString("Microsoft Mail", "Login", "", sMailUserID, 60, "MSMAIL.INI")
  70.  
  71.     frmMapi!MapiSession.UserName = RTrim$(sMailUserID)
  72.     frmMapi!MapiSession.Password = ""
  73.     frmMapi!MapiSession.NewSession = True
  74.  
  75.     'this will handle things if mail logon is canceled
  76.     frmMapi!MapiSession.LogonUI = True
  77.     frmMapi!MapiSession.Action = SESSION_SIGNON
  78.  
  79.     frmMapi!MapiMessages.SessionID = frmMapi!MapiSession.SessionID
  80.     Exit Function
  81.  
  82. initMail:
  83.     InitMultiMapi = False
  84.     Exit Function
  85.  
  86. End Function
  87.  
  88. Sub MapiSignOff (frmMapi As Form)
  89.     frmMapi!MapiSession.Action = SESSION_SIGNOFF
  90. End Sub
  91.  
  92. Sub SendSingleMailMsg (frmMapi As Form, sSubject As String, sMsg As String, sAddress As String)
  93.     On Error GoTo skipmail
  94.     Dim x%, sMailUserID$
  95.  
  96.     sMailUserID = Space$(60)
  97.     x = GetPrivateProfileString("Microsoft Mail", "Login", "", sMailUserID, 60, "MSMAIL.INI")
  98.  
  99.     frmMapi!MapiSession.UserName = RTrim$(sMailUserID)
  100.     frmMapi!MapiSession.Password = ""
  101.     frmMapi!MapiSession.NewSession = True
  102.  
  103.     'this will handle things if mail logon is canceled
  104.     frmMapi!MapiSession.LogonUI = True
  105.     frmMapi!MapiSession.Action = SESSION_SIGNON
  106.  
  107.     frmMapi!MapiMessages.SessionID = frmMapi!MapiSession.SessionID
  108.     frmMapi!MapiMessages.Action = MESSAGE_COMPOSE
  109.     frmMapi!MapiMessages.MsgSubject = sSubject
  110.     frmMapi!MapiMessages.MsgNoteText = sMsg
  111.     frmMapi!MapiMessages.RecipType = RECIPTYPE_TO
  112.  
  113.     frmMapi!MapiMessages.RecipDisplayName = sAddress
  114.     frmMapi!MapiMessages.Action = MESSAGE_RESOLVENAME
  115.     frmMapi!MapiMessages.Action = MESSAGE_SEND
  116.     frmMapi!MapiSession.Action = SESSION_SIGNOFF
  117.  
  118.     Exit Sub
  119.  
  120. skipmail:
  121.     Exit Sub
  122.  
  123. End Sub
  124.  
  125.